home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / t_os / gpen32k / source.exe / LIB / OSRC / OPRINT.C < prev    next >
Text File  |  1993-02-26  |  525b  |  22 lines
  1. /************************************************************
  2. *   共通一般ライブラリー                OKOME System 2      *
  3. ************************************************************/
  4.  
  5. #include    <string.h>
  6. #include    <EGB.H>
  7. #include    <normlib.h>
  8.  
  9. extern char work[];
  10.  
  11. void print(int x, int y, char *p)
  12. {
  13.     char pa[512];
  14.     EGB_textZoom( work, 0, 8, 16);
  15.     EGB_textZoom( work, 1, 16, 16);
  16.     WORD(pa    ) = x;
  17.     WORD(pa + 2) = y;
  18.     WORD(pa + 4) = strlen(p);
  19.     strcpy( &(pa[6]), p );
  20.     EGB_sjisString( work, pa );
  21. }
  22.